*  FILE NAME: INVADJUS.PRG
*  BY: NURJADI PURNAMA
*  DATE: January 25, 1993
*  DESC:
*  CALLED BY:
*  DATA FILES:

set proc to sospro
SET PROC TO BOXPROC
set proc to ADDREPRO
dr1='n:'
DR='N:'

DO START

F1='PATIENT'
F2='ACTIVIT1'
F3='REVENUE1'
F33='REVINVO'
F4='ACT_PRO1'
F41='ACT_PRO1'
F5='ACT_PHA1'
F51='ACT_PHA1'
F6='DOCT_FE1'
F61='DOCTIN1'
F7='CTLVOID'
F71='CTLVOID'
?KTR

SELE 2
SET EXCLU OFF
USE &DR&F2
IF NET_USE("&DR&F2",.T.,'2',10)
   INDE ON DTOS(DATE_VISIT)+INV_NBER TO &DR&F2
ENDIF
USE

SELE 3
SET EXCLU OFF
USE &DR&F3
IF NET_USE("&DR&F3",.T.,'3',10)
   INDE ON DTOS(DATE_VISIT)+INV_NBER TO &DR&F33
ENDIF
USE

SELE 4
SET EXCLU OFF
USE &DR&F4
IF NET_USE("&DR&F4",.T.,'4',10)
   INDE ON DTOS(DATE_VISIT)+INV_NBER TO &DR&F41
ENDIF
USE

SELE 5
SET EXCLU OFF
USE &DR&F5
IF NET_USE("&DR&F5",.T.,'5',10)
   INDE ON DTOS(DATE_VISIT)+INV_NBER TO &DR&F51
ENDIF
USE

SELE 6
SET EXCLU OFF
USE &DR&F6
IF NET_USE("&DR&F6",.T.,'6',10)
   inde on DTOS(DATE_VISIT)+INV_NBER TO &DR&F61
ENDIF


SELE 7
SET EXCLU OFF
USE &DR&F7
IF NET_USE("&DR&F7",.T.,'7',10)
   inde on DTOS(DATE_VISIT)+INV_NBER TO &DR&F71
ENDIF
close all


